▌╟ER▌╨▌ BMP OLARAK KAYDETMEK
Resim iτeren herhangi bir form veya kontoldeki resmi nas²l BMP olarak kaydedece≡inizi g÷steriyoruz. ╓rnek program²m²z ÷ncelikle form ⁿzerinde renkli daireler τiziyor daha sonra da form iτeri≡ini C: sⁿrⁿcⁿsⁿnde TEST.BMP olarak kaydediyor. Tⁿm bu i■lemleri gerτekle■tirmek iτin form ⁿzerine bir kez t²klaman²z yeterli.
Private Sub Form_Click()
Dim CX, CY, Limit, Msg, Radius ' De≡i■kenleri tan²mla
ScaleMode = 3 ' ╓lτe≡i piksel olarak tan²mla
AutoRedraw = -1 ' AutoRedraw ÷zelli≡ini aτ.
Width = Height ' Yⁿksekli≡i geni■li≡e e■itle
CX = ScaleWidth / 2 ' X posizyonunu ayarla
CY = ScaleHeight / 2
Limit = CX
For Radius = 0 To Limit
Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
DoEvents
Next Radius
Msg = ' Form ⁿzerindeki g÷rⁿntⁿyⁿ kaydetmek iτin Tamam'a t²klay²n.'
MsgBox Msg
SavePicture Image, ' c:\TEST.BMP' ' G÷rⁿntⁿyⁿ kaydet
End Sub